5 REM ADDRESS BOOK DOCUMENTATION PRINTER * FRANK VAN DEVENTER
10 R$=CHR$(13):PRINTCHR$(14)"[147]   [212]HIS PROGRAM WILL PRINT OUT A PAGE
15 [153]"OF DOCUMENTATION FOR THE ATNDDRESS PEEKOOK
20 PRINT"PROGRAM.  [194]E SURE THAT THE PRINTER IS
25 [153]"ON LINE BEFORE PROCEEDING.  (null)OU ALSO
30 PRINT"HAVE THE OPTION OF PRINTING THE
35 [153]"MATERIAL TO THE SCREEN.
60 PRINT"   [208]RESS [208] TO ROUTE TO THE [208]RINTER.
65 [153]"   LEFT$OLD DOWN (null)PACE PEEKAR TO PRINT":[153]"   TO THE SCREEN.
70 GETA$:IFA$<>""THEN70
75 GETA$
80 IFA$=" "THENOPEN1,3:GOTO120
85 IFA$<>"P"THENGOTO75
110 OPEN1,4,7
120 OPEN2,8,8,"INSTRUCTS FILE"
130 GET#2,B$:SS=ST
135 IFA$=" "THENGETC$:IFC$<>" "THEN135
140 IFB$=R$THENIFA$=" "THENFORX=1TO11:GET#2,B$:NEXT:PRINT#1,A$;:IFB$=A$THENPRINT#1
150 PRINT#1,B$;:IFSS=0THEN130
160 PRINT#1:CLOSE1
170 CLOSE2
200 PRINT"[208]RINT OUT COMPLETED":END